home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / gfx / 3d / lsocket.lha / Install-LightSocket < prev    next >
Text File  |  1996-12-06  |  4KB  |  161 lines
  1. ; ************************************************
  2. ; *
  3. ; * LightSocket - HD Install Script
  4. ; *
  5. ; * $VER: Install-LightSocket 1.0
  6. ; *
  7. ; * Script written by Graham Waddell
  8. ; *
  9. ; * Notes:
  10. ; *    STATDIR=[<>/stats]  ;Must be created!
  11. ; *
  12. ; ************************************************
  13. (message "\n\nThank you for purchasing LightSocket!\nPlease take the time to read the\n manual and fill out the\nregistration card.")
  14.  
  15. (set @app-name        "LightSocket Install")
  16. (set @default-dest    "")
  17.  
  18. (set ToolSource        "LightSocket")
  19. (set ToolDirPrompt    "Where should the LightSocket drawer be created?")
  20. (set ToolCopyPrompt    "Copying files...")
  21. (set CtrlCopyPrompt    "Copying network controllers...")
  22. (set CtrlSource        "LightSocket/Controllers")
  23.  
  24. (set ToolDir
  25.     (askdir
  26.         (prompt ToolDirPrompt)
  27.         (help    @askdir-help)
  28.         (default "SYS:")
  29.     )
  30. )
  31.  
  32. ; Ask Which Controller
  33.  
  34. (set CtrlHelp "The Controller files are necessary so that LightSocket can 'talk' to your network.\n\nYou can install only one of these.")
  35.  
  36. (set controller
  37.     (askchoice 
  38.         (prompt "Which Network Controller should be installed?")
  39.         (choices "Envoy" "Enlan" "Enlan2" "AmiTCP" "ScreamerNet" "None of the above")
  40.         (help CtrlHelp)
  41.         (default 5)
  42.     )
  43. )
  44. (if (<> controller 5)
  45.     (set controllername (select controller "EnvoyCtrl" "EnlanCtrl" "Enlan2Ctrl" "AmiTCPCtrl" "ScreamerCtrl") )
  46. )
  47.  
  48. ; Copy ParNetCtrl?
  49.  
  50. (set ParNetCtrlHelp
  51.     (cat 
  52.         "The ParNetCtrl file allows LightSocket to use a machine ParNet'ed off of the LightSocket machine to render."
  53.     )
  54. )
  55.  
  56. (set ParNetcontroller
  57.     (askbool 
  58.         (help ParNetCtrlHelp)
  59.         (prompt "Do you want to install the 'ParNetCtrl' file so that LightSocket can render on a ParNet'ed machine?")
  60.         (choices "Install" "I Don't Need It")
  61.         (default 1)
  62.     )
  63. )
  64.  
  65. ; Copy LocalCtrl?
  66.  
  67. (set LocalCtrlHelp
  68.     (cat 
  69.         "The LocalCtrl file allows LightSocket to use THIS machine to render (without unnecessary network overhead).  Install it if this machine should be able to render."
  70.         "\n\nNote:  LightSocket's network controllers will NOT talk to this machine.  If you need to render on it, you MUST install this part."
  71.     )
  72. )
  73.  
  74. (set localcontroller
  75.     (askbool 
  76.         (help LocalCtrlHelp)
  77.         (prompt "Do you want to install the 'LocalCtrl' file so that LightSocket can render on THIS machine?")
  78.         (choices "Install" "I Don't Need It")
  79.         (default 1)
  80.     )
  81. )
  82.  
  83. (makedir (tackon ToolDir "LightSocket") )
  84.  
  85. (set ToolDir (tackon ToolDir "LightSocket") )
  86.  
  87. (set CtrlDir (tackon    ToolDir "Controllers") )
  88.  
  89. (copyfiles
  90.     (prompt ToolCopyPrompt)
  91.     (help    @copyfiles-help)
  92.     (source ToolSource)
  93.     (dest    ToolDir)
  94.     (files)
  95.     (infos)
  96.     (pattern "#?")
  97. )
  98.  
  99. (delete (tackon ToolDir "Config" ) )
  100. (delete (tackon ToolDir "Config.info" ) )
  101. (delete (tackon ToolDir "Graph" ) )
  102. (delete (tackon ToolDir "Graph.info" ) )
  103.  
  104. ; Make default statistics directory
  105.  
  106. (makedir (tackon (ToolDir) "Stats") )
  107.  
  108.  
  109. ; Copy the Controllers Now
  110.  
  111. (if (= localcontroller 1)
  112.     (copyfiles
  113.         (prompt CtrlCopyPrompt)
  114.         (help    @copyfile-help)
  115.         (source (tackon CtrlSource "LocalCtrl"))
  116.         (dest    CtrlDir)
  117.     )
  118. )
  119.  
  120. (if (= ParNetcontroller 1)
  121.     (copyfiles
  122.         (prompt CtrlCopyPrompt)
  123.         (help    @copyfile-help)
  124.         (source (tackon CtrlSource "ParNetCtrl"))
  125.         (dest    CtrlDir)
  126.     )
  127. )
  128.  
  129. (if (<> controller 5)
  130.     (copyfiles
  131.         (prompt    CtrlCopyPrompt)
  132.         (help    @copyfiles-help)
  133.         (source (tackon CtrlSource controllername))
  134.         (dest    CtrlDir)
  135.     )
  136. )
  137.  
  138. (set cfghelp
  139.     (cat
  140.         "This will load the Config program, which\n"
  141.         "allows you to choose which network machines\n"
  142.         "should be used with LightSocket.\n"
  143.  
  144.     )
  145. )
  146.  
  147. (set runcfg (askbool
  148.     (help        cfghelp)
  149.     (prompt        "Would you like to run the Config program now?")
  150.     (default    1)
  151.     )
  152. )
  153.  
  154. (set @execute-dir    ToolDir)
  155.  
  156. (if runcfg
  157.     (run        "Config")
  158. )
  159.  
  160. (message "\n\nDon't forget to install the LightSocket client\non the remote machines via Install-Client!\n\nNote: Ignore this for Enlan and ScreamerNet.\nThey do not use clients.")
  161.